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P=*A_e i 



Weil -folks we are back -from VACATION and ready to go at 
it again. First Hji^F='F>’V' F^OLJRTI-S- - . _ 


? *? 7 7 o o o '? ”7 r> o r* o "7 o o rj -7 r> o o o 7 -7 ”7 r> o o ■T’ 


nJim ^ir-ialier-s.con 

Is there a program available -for plotting and displaying 

as X 8< Y axes??? 


»'?'7'777'77 

1 i nes 


I assume that you want a program to PLOT lines in HI RES, well 

1 don't have one right now but 1 will put out a call tc the 
members -for one. 

Ms=:iui=* me:l_f=> me:i_f=- §He!i_F=' 6 -hie:i_f=- 

That is not to dramatic is it! 

Here is a simple program sent in by Chuck Clancy -for plotting, 
maybe you can get some ideas -from this. 

2 POKE 24578, 38:CALL170465COLOR=0!SHAPE=15 
1 0POKE40960 , 3 ! POKE4096 1,128:1 NPUT “ X= " , X 
13CALL17046 

14Y=X-'-2:PL0TX, Y: X=X + 1 ; G0T0i4 
Input values -for X o-f . 1 to 9..... 


"Tco crr"ecd±-t xs crB^«s-cix-fe. xs 

due, we le-ft o-ff tihe name of the programmer for the TOWERS OF HANOI 
in the JUNE letter. It was written by JI>Or4 SCfi— IM I OTT 
and is a very good program and lots of fun to play. Little things 
like that happen when you are trying get ready for vacarion and 
finish a Newsletter also. This also gives me a chance to mention 
that when programs are submitted if they are on TAPE it shore 
makes it a lot easier* I am not know for my typing ability. 

Thanks for the program DON. EDITOR. 

From E£iL_l_ SOtsIMf^^W 

1. Do I have a problem with my computer? The following will not 
print anything until 1=14 then it will not print all of the 
ASC II characters. 

10 A=0:FOR I = 0 TO 63 
20 PRINT I,CHR$<A+I) ;N£XT 

No you don’t have a problem with your machine. It did just what 
it was supposed to do. To explain WHY first I will have to 
give you a breakdown of the ASC II characters. 

0 to 31 = These characters are primarily control characters and 
are used in such things as PRINTERS AND COhMUNICATiON 
devices. 

32 to 95 = These are ail of the characters that the IM-i uses. 

This covers the special ( i (>>,.?/ + ;*! ) * <N(Ji'1ERIC 
and ALPHA characters. 

96 to 126 = These would be your Lower Case and a few more special 
characters. These are not displayable on the IM-1 
but can be used on a printer if you have one. 

So if you will change line #10 to A=0sFDR I = 32 TO 95 YOU WIuL 
get all of the characters printed, if you go all the way to 126 
it will just repeat the ALPHAS. 
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2. Please explain line # 3090 PRINT=1 : PRINT CHR* < 27) ; "P" 

-From the LEDGER program in the MAY issue. Also line # 3150 
PRINT=0. 

The above lines woulc! only be used if you have a printer. The 
first line turns on the printer and sets it to compressed print 
mode. The other line turns off the printer. 

3. Could the dampness in the air be causing my keyboard to have 
multiple keyins? 

I don't think that it does. This is a common problem with mech- 
anical type keyswitches. I have had some luck with putting some 
very light oil around the shaft in the keyswitch. Just be care- 
ful to not overdue it. 


From ROEcEF^T S R; E> rv4 GI F=? CT - 

Does the LEDGER program in the MAY issue have to be run on a 
DISK system? 

No, you can use it on a tape system just as well. The only thing 
you have to remember is to use a GOTO instead of RUN when you 
start the program after loading it from TAPE. This will keep it 
from destroying your data. Here are the steps to do it. 

1. Keyin t CLDAD and hit Return 

2. Keyin RUN and hit Return 

3. After it loads use GOTO 1 to start. 


'r-c3m ^cdvN««N,r"d 


C5LJ.t 

I R" s ± I — ts ± i 


He has some Amateur Radio Software for the IM-1 available. 

Here is his address so ycu can writs for information and cost. 
Edward J Fairbeirn 
7601 12th Av© So 
Richffield, MN 55423 

basic box basic box basic box basic box basic box basic box basic box basic 
Bi^jSXC BOX B<=^3IC BOX 


This month I am going to try and clear up some of the confusion 
about the READ, DATA & .RESTORE commands.’ 

First a little descr i pi t i cn ; 

1. DATA=This command is used to store permanent data in the 

program. The only wav to change or modify this is to 
stop the crogram and rekey the data. It is recommended 
that the DATA statements be put at the end of the 
program . 

2. READ= This command is used to retreive the data from the 

DATA statement, 

3. RESTQRE=This command allows the Computer to READ the same 

Data more than ones. 
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He.'a ars 2 grogra.-na showing 2 ditferent ways to do the samething. 
100 DIM NAhESiS. 10^ , AGE(S) 

110 FOR I = i TO 5:READ 'NAME%<I,1):NEXT I 

140 FOR I = 1 TO SsREAD AOEIDiNEXT I 

170 FOR I = i TO 5:PRINT NAMES ( I , i ) , AGE ( I ) s NEXT I 

200 STOP 

210 DATA JAMES, ALEX, KELLEY, DAMON, MILLY 
220 DATA 3,4,99,8,00 
230 END 

100 DIM NAMES<5, 10) , AGE(5) 

110 FOR I =l TO S:READ NAME* < 1 , 1 ) , AGE ( I ) ;• NEXT I 
140 FOR X = 1 TO 5;PRINT NAME* ( I , 1 ) , AGE < I ) ; NEXT I 
150 STOP 

160 DATA JAMES,3,A^EX,4,;<ELL£Y,99,DAMON,S,MILLY,60 
170 END 

-Fr-cr»m I S JBOLOLJCO 

BASIC SEQUENTIAL AND DIRECT ACCESS FILE MANAGEMENT 

When you open a file, here's whafs going ons 

1- The computer looks up in the Directory, and checks if the file 

already exist, if the file exists, it goes back x.o BASIC, 
otherwise, it will create it following the same algorithm as if 
it was saving a program, except it won’t save anything 

2— In sequential access, the record pointer is set to 0. 

SEG3LJEIMT I 

When you PRINT #n;variables , Here’s what’s going ons 

1- Every time a PRINT is executed, the following algorithm is 
performed: it reads the FSAT and gets the sector and track 
indicated by the record pointer. 

2- It goes back in the GAT and resets the sector, then the 
computer looks for the first available sector. It goes back in 
the FSAT and prints in it the new sector at the byte indicated 
by the record pointer, the record pointer is incremented and the 
variables are printed on the sector indicated by the cld value 
of the record pointer. 

When you READ #n;variables , here’s what’s going on; 

1- The FSAT is read to get the sector and track indicated by the 
record pointer. 

2- The sector is read and the record pointer is incremented. 
DIRECT" *=2»CCE:SS 

In Direct Access, the algorithm is exactly the same as the 

sequential access (unlike most DOS) except that the record 
pointer is given in the PRINT and READ statement and it is 
not incremented. 

Example of read statement; READ #n , 2; var i abl es 

if the FSAT contains 00 0S' 00 00 07 00 06 00 05 01 08.. 
then the sector S on track 0 will be read.... 
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EIDIaJARD Ci 

He &ent in an explanation -for the recursive programming and I 
thought some ot you would be interested also. 

Recursive programming is the jnrethod by which a routine will 
continue to call itsel-f until a specific minimum requirement is 
met. A good example of recursion is the T.V. commerical where 
you are shown a picture of a television, which in turn is showing 
a picture of a television, which in turn is showing a picture of 
a television, etc. In programming it is where you have a routine 
into which you plug your initial values. The routine then performs 
a function on the values you have input. It substitutes the 
calculated result for the orginal values, ana then calls itself, 
using the newly computed values. This then continues until all 
the requirements for leaving the routine are met. 

Thanks Edward 

Edward 

YGU MIGHT NOTICE THAT THIS MONTH 2 HAVE PRINTED ALL OF THE PROGRAMS 
in larger print, it was too hard to make out what was printed or. the 
other, 

xxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxx 


IF S=32 THEN POKE V+I,A-64 


POKE 8193, 60i POKE 261 12, 0: V«S12s 1-0: K»0J M*4229& 

^ CALL 17046s POKE 623, 94s K-K+I : I — 1 

3 i-I-visS-32; POKE V+I,239 

4 A» ASC < KEY* (0))s IF A=0 THEN 4 

5 CALL 17006; IF A-4 THEN 28 

6 IF A=i THEN S=0s GOTO 4 

7 IF A-S THEN POKE V+I , 32* I- I~2s GOTO 3 
9 POKE V+I,A* IF A<91 IF A>64 THEN POKE M+K+I,A+Ss 
: GOTO 3 

'1+K+I,A: IF A<>i3 THEN 3 
■l+K+I, 11s I-I + ls POKE M+K4-I,i3s GOTO 2 
=0 TO K+Is POKE 25601, PEEK <M+S) s NEXT s GOTO 2 
"HERE IS A NICE PROGRAM SENT IN BY JOHN M GIPSON" 

'WITH THIS PROGRAM YOiJ CAN CREATE PRINTED MATTER ON AN EPSON MX-B0 
'WITH YOU IM~1' . 

'BEFORE RUNNING DELETE ALL LINES FROM 30 ON' 

'THIS PROGRAM WILL DEMONSTRATE POKE TO THE RS-232. THE 
'PROGRAM PERMITS LOWER CASE LETTERS AS WELL AS ALLOWS 
'YOU TO SEE ON THE SCREEN A CAPITALIZED LETTER AS A 
'REVERSED VIDEO CHARACTER.' 

'TO CAPITALIZE PRESS THE <CTRL) KEY BEFORE THE LETTER. 

'THE (ESC) KEY CAN BE USED TO CONTROL THE PRINTER. 

'AN ARROW POINTS TO THE END OF A 80 CHARACTER LINE AND 
'THAT IS THE ONLY REFERENCE POINT YOU GET SO YOU MUST PAY 
'CLOSE ATTENTION. 

'WHEN YOU WANT A PRINTOUT JUST PRESS THE (HERE IS) 

'KEY SEVERAL TIMES. YOU CAN ALSO ADD MORE TO YOUR 
'PRINTOUT. 

'IF YOU (BREAK) USE (6DT02) TO RESTART. 

'CHANGE THE END OF PROGRAM POINTER AT *A400 AND YOU CAN 
'SAVE ON TAPE OR DISC. 


18 

POKE 

22 

POKE 

28 

FOR 5 

30 

REM 

35 

REM 

40 

REM 

50 

REM 

55 

REM 

60 

REM 

65 

REM 

70 

REM 

75 

REM 

30 

REM 

85 

REM 

90 

REM 

95 

REM 

100 

REM 

105 

REM 

1 10 

REM 

115 

REM 

120 

REM 

125 

REM 


^ rEr*. PROGRAf^ SUBMITTED BY CHUCK CLANCY TO ALLOW 

1 '.E>t ROCKET PATROL TG BE PLAYED is^ITriOLT TjRNING OFF THE MACHINE. 

2 GF=4e49As CAl-l. 17046* GOTO 500 

3 'PK^NT “LOADING MOVE ROUTINE" 

4 .-ZH 1 = 1 TG 41 

5 READ As POKE OF, A: 5F=3r4-l 

6 NEi^T I 

10 CAl.L 1704c 

12 POKE 2457Q.33 

15 PRINT "MCVINS ROM TO RAM" 

20 CALL 48500 

45 PRINT "CHANSINS VA<_UES w A I T" 


55 

60 


70 

75 


0, 167,0,8,255, 189, 114,254, 189, 120,8.255, 1 


FOR 1=1 TG 250 
READ A,B 
POKE A, 3 
NEXT I 
CALL 17046 
CALL 4S056 

80 DATA 64,0,176,0,254,189,114,182,64, 

89, 120, 140,72,8 

82 DATA 38.232,206,64,0,253, 139, 120,206, 176,0,255. 189,2,57 

100 DATA 45109, 176,45110,83,45115, 179,45126, 176,45127,203,45129, 179,45130,32 

101 DATA 46203,178,46204,152,46622,191,46623,104 

102 DATA 45137, 177,45142, 187,45149, 187,45150, 129,45159, 177 

104 DATA 4516S, 186,45169,254,45177, 186,45178.255,45184, 176,45185, 185,45192, 177, 

45195. 68 

106 DATA 45225, 179,45226, 128,45228, 177,45229,217,45233, 177,45234,190 

108 DATA 45318, 177,45624, 177,45625, 152,45977, 183,45970, 131,45985, 177,45936,68 

110 DATA 45988, 180,43989, 170,45996, 183,45997,148,46003, 180,46004, 127,46006, iSl, 

46007.69 

112 DATA 46031,183,46034,181,46060,183,46071,178 

1 14 DATA 46074, 182,46075,32,46077, 183,46078, 172,46088,178,46089,240, 46112, 182,4 
6113, 155 

116 DATA Pol 26, 180,46127, 188,46159, 183,46160, 121,46179, 134,46180,0,46181, 189 

1 17 DATA 46122, 123,46163,207,46184, 129,46185,0,46106, 39,46187,249,46188,126,461 
89, 176.46190,0,46191,57 

1 15 DATA 46203, 178, 46204, 152, 46222, 178,46223.240,46251 , 177,46252,217, 46269, 177, 
46270. 190 

DATA 46363, 17S, 4o366, 1 10, 46396, 183,46397, 156,46403, 180,46404, 127,46415, 180, 


46428, 161,46429, 102,46434, 182,46435, 39,46439, 181,46440,81,46483, 132,46 
24,46594, 177,46595,47,46750, 183,46751, 121,46763, 177,4 


120 ] 

46416, 173 
1 22 DATA 
484, 124 

124 DATA 46493,182,46494 
6769,29 

126 DATA 46773,178,46774,240 
TOP 

"PROGRAM MOVES ROCKET PATROL" 
"TG RAM AND CHANGES IT SO THAT 
"RESET NOT NEEDED FOR THE NEXT 
"GAME. WILL DISPLAY TILL A KEY 
"ON MAIN KEYBOARD IS PRESSED," 
"THEN RETURN TO SELECT SCREEN" 
PRINT : PRINT "PRESS RTN" 
(0)="" THEN 330 


499 

500 
505 
510 


520 

325 

527 

530 

535 

600 


6-0 

615 

620 

625 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
IF KEY« 

GOTO 3 

INPUT A2B=A+2S672 
C= PEEK (A)sD= PEEK (B) 

IF COD THEN MUSIC "/ 1000000000000" 
PRINT A,C,D,3 
IF KEYS <0)="" THEN 620 
A=A+l!B=B+i: GOTO 605 


0 REM 'HEYS FOLKS I HAVE HAD SEVERAL LETTERS WANTING" 

1 REM ’PROGRAMS WITH ERRORS IN THEM TO GIVE PEOPLE’ 

2 REM ’PRACTICE IN DEBUGGING THEM. WELL HERE IS ONE’ 

3 REM 'FOR YOU. IT WILL ONLY PRINT ONE MONTH AND’ 

4 REM ’QUITS.... HAVE FUN, . . EDITOR’ 

5 DIM D0«<7,3) ,N0':i2J ,M0*<12,3> 

10 DIM X«<1) , Ai*(l) 

15 REM CALENDAR MAKER 
20 N=0sS0=0:L0=0:Mi=7!M2»7!M4“l 
25 FOR I»1 TO 7s READ D0* ( I , 1 ) s NEXT 
30 FOR 1=1 TO 12s READ M0* < I , 1 > , N0 < I ) s NEXT 

3S PRINT "ENTER THE FIRST MONTH AND YEAR TO BE PRINTED I.E., JAN, 1980" 
40 INPUT M^,Y1 

45 PRINT "ENTER THE DAY OF THE WEEK THAT THE FIRST MONTH STARTS ON" 

50 INPU'’’ Dl« 

55 PRINT "ENTER THE NUMBER OF MONTHS TO BE PRINTED I.E., 10" 

60 INPUT N 

65 PRINT "DO YOU WANT PAGE ALIGMENT (Y OR N)"; 

70 INPU" Al« 

75 IF A1*<>"Y" THEN 90 

80 PRINT "BEFORE THE PRINTING OF EACH MONTH A ? WILL APPEAR" 

S5 PRINT "ALIGN TO THE TOP OF PAGE BEFORE PRESSING THE RETURN" 

90 FOR 1=1 TO 12 

95 IF M«<>M0«<I,1) THEN 105 

100 M4=I 

105 NEXT 

110 FOR K=1 TO 7s IF Dl»<>De«(K,i> THEN 120 

115 S0=K 

120 NEXT 

125 Z=M4+N-1 

130 FOR I2=M4 TO Z 

135 N0<2)=2a 

140 Y=Y1 

145 IF INT (Y/4)<>Y/4 THEN 155 
130 N0<2)=29 
155 10=0 
160 M3*I2 

165 IF M3<=12 THEN 195 
170 M3==M3-12 
175 Y=Y1+1 

1B0 IF INT (Y/4)<>Y/4 THEN 190 

185 N0(2)=29 

190 GOTO 165 

195 IF S0=0 THEN 255 

200 PRINT »i 

205 GOSUB 290 

210 FOR J»1 TO M2 

215 QOSUS 335 

220 IF N0<M3)<I0 THEN 250 

225 GOSUB 365 

230 GOSUB 495 

235 GOSUB 495 

240 L0=L0+1 

245 NEXT J 

250 REM 

255 IF S0O8 THEN 265 
260 S0=i 
265 NEXT 12 


270 

275 

280 

285 

290 

295 

300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

350 

3S5 

360 

365 

370 

375 

380 

385 

390 

395 

400 

405 

410 

415 

420 

425 

430 

435 

440 

445 

450 

455 

460 

465 

470 

475 

480 

435 

490 

495 

500 

S05 

510 

515 

520 

525 

530 

535 

540 

545 


PRINT 
PRINT 
PRINT ~0 
STOP 
REN 

IF AiS<>'‘Y" THEN 305 
INPUT X* 

PRINT ; PRINT " 

FOR 1=1 TO 7 

PRINT '• ";D0*(I,1>|*’ ’*5 

NEXT 

PRINT 

RETURN 

REM 

FOR 1=1 TO Ml 

PRINT "I 

NEXT 

PRINT "I" 

RETURN 

REM 

FOR 1=1 TO MI 
IF JOl THEN 390 
IF IOS0 THEN 390 
10=1 

IF N0(M3)>=I0 THEN 410 
PRINT "I 
10 = 10+1 
GOTO 470 
IF I0>9 THEN 450 
IF I0O0 THEN 430 
PRINT *‘I 
GOTO 470 

PRINT "I ■'5l0s*' 

10 = 10+1 
Si=I+l 
GOTO 470 

PRINT "I '';I0;" " ; 

S1=Z+1 
10 = 10+1 
S0=r+i 
NEXT I 
PRINT •‘I” 

L0=0 

S0=3i 

RETURN 

REM 

FOR 1=1 TO Ml 
PRINT ”1 
NEXT I 
PRINT "I** 

RETURN 

REM 

DATA SUN,MON,TUE,WED,THU,FRI,SAT 

DATA J AN , 3 1 , FEB , 28 , MAR ,31, APR , 30 . MAY , 3 1 , JUN , 3« 

DATA JUL. 31, AUG, 31, SEP. 30, OCT, 31, NOV, 30, DEC, 3: 

REM 


'';M0* (M3, 1) ; ; Y 
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SRETT LACROn, 49« SUfFWOC KAY 
SACRA«£hT0, CA 95641 
I Ml THE PRESIDENT AND FOUNDER 
OF LACRDII BANES (SEE NANT ADS) 
if YOU HAVE A BAlIc YOU THINK 
LACROII BARES MOULD BE INTEREST- 
ED IN 

EDDIE 8E&NAR, 11814 BROOKNOOD RO 
AUSTIN, TEXAS 78759 512-258-1196 

PHILIP LEESON, 125 FOREST AVE 
f5IS, HAR!lT»i ONT, CANADA 
LBN 1X7 

I AR TRYINB TO FINS A FAIRLY 
BCOD CHESS PR06RAR FOR THE IN-1. 

RON CARTHAN, 136 N Hi^ON DR, 
FOREST HBTS, HD 21745 
311-639-6249 

PRESENTLY IN THE AIR FORCE BAND, 
HAVE NY BHE IN HUSIC PLUS 
COMPLETED A RASTER COURSE OF 
HICRO MRPUTEfiS 4 RICSOPRQCESSIH 
ilTH NRI. 0« OF RY DREARS IS TO 
3EC0KE A RASTER PROBRAHNER IN 
AD ASStfiBLY.... 

HARRY R BROiN, IHl .HtNENNAY K£ 
PORT CHARLOTTE, FLA 33952 
813-625-«853 

SENIOR CITIZEN, RETIRED GENERAL 
aECT HODEL NAKER. HOBBIES^ 
NRITTINS, POETRY, ELECTRONICS, 
COKfUTEfi. 

BILL RONDEN, RR 4, ST THOHAS, 
ONT., CANADA NSP 336 
519-631-4199 

I AH A HAH RADIO OPERATOR- NOT 
TOO ACTIVE AT PRESENT. CALL IS 
VE3KGR. NOT TOO MUCH INTO PfiOS- 
RAHnlNS YET BUT AN TRYINS. 

TIN CRONIN, 32 BER8EN AVE, 
NALDNICK, NEW JERSEY, 97463 
211-444-5929 

NILLIAH C »1R0UEZ, 

H-]f HANZANERA ST, VILLA ESPANA 
BAYAHON, PUERTO RICO, M619 
S99-7S5-1849 OR 783-6222 
1 AH A HECHANICAL EN6 NORKINB 
FOR THE ELECTRIC PCNER UTILITY 
IN PUERTO RICO, I B0U6HT HY IH-1 
TO FILE COIN STOCK OH RY PART 
TIHE RARE COIN SailNS BUSINESS. 
ALSO PLAN TO INCLUDE NAKINO 
INVOICES, LETTERS, ETC. HEED TO 
KNON HHO CAN REPAIR IH-l’S IN 


MANTAOS WANTAD5 

PLEASE RESTRICT ANY 'ASS' TO 19 
LINES OR LESS. THE COST TO NEB- 
8ERS IS .25/LINE & $!.«#/Ll«£ TO 
N0N-BEB9ER8. AFTER JULY ISSUE 
ANY lANTAOS LOWER THAN \i LINES 
lILL BE RETURNED, 
ttttittittittttttiitttnttttttii 
COPY HRITER: VERSATILE, EASY TO 
USE NORD PftOCESSIW PR06RAH »JTH 
UPPER AND LONER CASE PRIKTIN6. 

Sn EDITIN6 COBNANDSs EDIT,NRAP, 
COPY, RE-TYPE, INSERT AND DELETE 
COBES NITH LABEL NRITER BAILIN8 
LIST PPOfiRAB. BOTH FOR $19.95. 
INDICATE 3K OR 16K. SEND TOs 
JIB CLATFELTER, 6A4 CORNIN AVE 
GLENDALE, CALIFORNIA 9S206 

tuimiinmitttutttttttttitt 

ttttttt N!2 PINBAL tUtU 
IF YOU NERE DISAPPOINTED NITH 
APF PINBALL THEN THIS SANE IS 
FOR YOU m IT HAY BE THE BEST- 
HOST REALISTIC VIDEO PINBALL 
GABE EVER. REALISTIC FLIPPERS, 
VARIABLE SPEED BALL LAUNCHER, 
GRAVITY, FRICTION, ADVANCES, 
TARSSTS AND BORE tl GREAT SOUND 
J8?:SHi-RES»BACH LANG5SINGLE 
PLAYER OH CASSETTE ONLY. SEND 
CHECK OR BO FOR »H.95*»1.M 
POSTAGE AND HANDLING TOi 
GEORGE KARABIN 
RD 1 BOY 447 
BELLE VERNON. PA ’5012 

HEY FOLKS, HE SAYS IT ALL IN THE 
AD ABOVE. IT IS A VERY SOCD SANE 
EDITOR 

tititttttttiuttliitttttiiiittit 

BONITOR-ABSEHBLEfi-EDITOR ON 

CASSETTE, g, Ji, 24-K .GREAT FOR 
NRITINS FAST BACHINE SUBROUTINES 
FOR SASIC PROGS OR COHPLETE BACH 
!NE PROGS. EDIT, ASSEB0LE, EXECUTE 
NITH EVERYTHING IN HEHORY. TH’S 
IS A FILE ASSEBBLEfi, NOT A LINE 
ASScRBLER. BC-60B9 INSTRUCTIONS, 
PSEUDO-OPS! SAVE OR LOAD SOURCE, 
BINARY, DATA OH CASSETTE NITH 
QUIET-TAPE COBBANOS (THE HUlWBH 
IS GONE). SEND S.A.S.E. FOR INFO 
OR *25. TO DAVID DONNELLY, 

6*62 ROSTRATA AVE. BUENA PARK, 
CALIF. 9B621 


I HAVE USED THIS RROSRiAB ON A 
COUPLE OF SHALL TEST PP06RAHS 
AND FOUND IT EASY TO USE. 

EDITOR 

tnnttititTtYnttiiuttttittttt 


nmntttumutttmttmmt 

COHPLETE IB'I SYSTEBj 16K, DISK, 
SERIAL IN7., ED ASH, O^HER SOFT- 
NARE TAPES, DISKS, CARTS, »55f. 
(612) 253-#671 (BINNl 

ntltMMttttttttMttttMttllttt 

FOR SALE: 23K IH-1 NITH OVER 
*151 NORTH OF SOFTNARE AND BAN- 
UALS, IKIUDING 3 CART’S AND 
BR.R’S SECRETS, BASIC TUTOR, 
FINANCE, AND BANY GABES- 
ALL FOR *275 OR BEST OFFER-CALL 
813-646-9375 OR NRITE: 

ED ROE 
53*2 LOCH PL 
LAKELAND, FLA 33803 

mmnmttuuttxtmmum 


SELLING ARCADE GABES!!! 

CATERPILLAR (CENTIPEDE) M.M 

KABIKAZE *3.5# 

EARTHNDS’’ ATTACK I3,P# 

SPACE RAID(STAR RAIDERS). .*4, 59 

CANYON BOBSER *3.5# 

BETEORITEO *5.« 

OCDGER,.,.. .....*3.5# 

SENS CHECK TO; I-JCHG LIN 


40 LYONS DR,, NEST N00D,BA #2#9» 

Ktttititttuttttitttuttmtni 

NEED TNO FLOPPY DRIVES N/CABLES 
N.C. HAR8UEZ,H-ia BANZANERA ST. 
V.EXPANA, GAVABON, P.fi. 9f61? 

nutttimimtmnttmttmt 

FOP SALE: IH-1 COMPUTER, BASIC 
TUTOR, SPACE DESTROYERS TAPE, 
TECHNICAL ASSISTANCE BANUAL. 
NENSLETTEfi FPCH BEGINNING, GOOD 
TILL DEC. l?a3.EICELL£NT COND. 
1209. CALL 314-673- '’«5« BEFORE 
SENDING HONEY (TO CONFIRH ORDER' 
BRIAN AEB’SEGGER, RT 2 BOX 73 
FOfilSTELL, BO. 63348, CERTIFIED 
CHECK OR HONEY OPDE? ONLY, 
tttuttiuiuttiiluitiiulittit 
IH-i N/8Bl,R8K,Sl232.n:99, EXTRA 
BASIC CAR^.4 3ABE CART, BASIC 
TUTOR, lH-1 DIAGNOSTIC + 12 BORE 
TAPE P6HS.ALL TECH HANUALS.LBll, 
COMPOSITE VIDEO OUTPUT. VALUE 
BEN IS OVER >1291 IN HARDNARE * 
SOFTNARE. TOTAL PACKAGE *4M. 
T.CROBIN 211-444-5929 AFTER 2Pn 

mttntttttinttttunuMnti* 

FOR SALE: IH-1 NITR BB-1 JNTER-F 
232, AND DISK CCN’ROILER. SINGLE 
DISK DRIVE, NPH DISASSEB8LER, 
ASSEHBLEP, AND DICK COPIER DISKS 
IH-I HAS ROBGN CHIP INSTALLED. 
FINANCE, HCBLC, BASIC 

AND TYPEIN5 ^UTO". AND OTP5R CAS 
SET GABES AND PF06''At^3. SECRETS. 
GRA PPI 45:#- CALL 4l<-73’-5994 


ttttnttttmtutttmntttttm 

DEFENDER- AND ACTION PACKED GAHE 
NHICH PUTS YOU AGAINST AN EWNY- 
ATTACK.'THIS IS ’HE FIRST VERSION 
OF THIS VERY POPULAR ARCADE SANE 

FOR THE APF *9.## 

SEND CHECK OR HONEY ORDER TO: 
EDDIE BEDNAR 
US#4 8ROOKUDOD RO. 

AUSTIN, TEXAS 7375# 
tCOBING SOON; ASTEROIDS, FROSGER 

itmutituttmtuumututt 

Utattini ENTRAP tUMItttlt 
f TRAP YOUR OPPONENT BEFORE HE I 
t TRAPS YOU (LIKE SURROUND). t 
I IT’S A GAME OF QUiCKNESS, t 
1 SKILL, AND STRATEGY SEVEN t 
t DIFFICULT LEVELS. ONLY *4. #9 I 
I INCLUDES «t£NTRAP2Xt SEND TO I 
1 BRETT LACROIX 4949 e'JPFNOOD, I 
8 SACRABEHTO, CALIFORNIA 95841 I 

mnm lacroix games tiitttttt 
iiniunmttutmmumxtti 

IttllOKIDATA PRINTER CABLESJIIII 
HEAVY DU’Y G’ 51-232 TO OKIDATA 
PRINTER CABLES. ..TESTED ON THE 
IB-I ft OKI 82A'S LO-SPEED SERIAL 
PORT. ..119.95 SHIPPING INCLUDED. 
SEN? CHECK (^ HONEY ORDER TQ- 
GLENN fi JONES 
419 S. 105 E. PL. 

TULSA, OKLA. 74.29 
iftttKititmmtitttniittttii 
FOR SALE; 23K IB-l COMPUTER 
BASIC TUTOR CO’JRSE-PAK-BAN- 
FfiOGGY-ESCAPE-BISSION BRAVO- 
SPACE 3ESTPQYER-6 OT'SR CASSETTE 
AND 5 CA.RTRID6ES. ALL BAWALS 
AND NENSLETTERS IWLUDED 
EVERYTHING .-OR 1109.99 
SEND CASHIERS CHECK, HONEY ORDER 
JANES fi QRESCOVICH, 15588 FOX 
PLAINS DR, FLORISSANT, BO 63134 
PHONE. (3141 839-3189 
ilttttltlttlttmtfitltMItltttt 


LONELY COHPUTERS 

JANES ORESCOVICH, 1558B FOX 
PLAINS DR, aORISSANT, HO, 63934 
314-539-3189 


DOUGLAS L SHI’H 
3952 PERSIBBOV DR., T2 
FAIRFAX, VA 22*31 


1 REM SUaniTTED BV LQUIS G. DCOLEY 

2 REM HERE iS A FA.vCY DIRECTORY i^ROCRAM FOR YOU 

5 RE.i IM : ON CAL- ** (L. DOOLY) 

1^' C-^L^ 17046s POKE 409£i0,2; POKE 40*761^15 

C0 PRINT TAB 1 Ci\ CAuL" 

30 DIM N«(19, 10) ,NT%<10') 

35 DIM B4C1) ,C$<:i5 ,03(1) ,£«(10) ,F9>C1) 

4(3 L=75C=0Z=0! X=L*32+C+512 

85 MUSIC "5000005000# 1000000000000 500000* 10000« 1000000000000 ’• 

36 MUSIC “50000*10000*3000000 50000*10000*3000000 50000*10000*3000000000000 “ 

37 MUSIC '■ * 100000*3000*5000000000000 *3000000*10000005000000000 ■' 

Sa MUSIC “5000005000* 1000000000000" s SOSUB 500 

S9 CALL 17046! PRINT "I AM GOING TQ TAKE A NAP NOW, IF YOU NEED ME, PRESS SPA 
CE BAR" 

90 FOR K=1 TO 300 

100 IF KEY1S (0)=“ ■' THEN 190 

110 A=0sA=l: NEXT K: 

140 FOR RK=1 TO 600 

150 IF KEYS (0>=“ " THEN 190 

160 A=0:A=l5 NEXT Ki GOTO 89 

190 MUSIC "5*1*3*50*5*5*5*50 #30*3*3*3*30 *10*30*1050 

191 MUSIC "5*1*3*50*5*5*5*50 *50*30*1050 55550#10'’s GOSUB 500 

200 NTS=G$: CALL 17046 

205 INPUT "YES, WHO CALLED? TYPE YOUR NAME, PLEASE" , NT* : GOSUB 500: CALL 17046 
210 F0TK=3 TO 19 

220 N*(K,10)=NT* THEN PRINT "HELLO, "?NT*: GOTO 280 
230 NEXT K 


240 s PRINT "I DON’T NOW YOU, ";NT 
N HELP YOU" 

245 GOSUB 400: CALL 17046: POKE 40960, 


TEELL ME MORE ABOUT YOURSELF, BEFORE 1 CA 


: 4096 1,0 


25L' INPUT "AGE,", As CALL 17006 

251 PRINT 8 INPUT "BIRTHPLACE" , B*s CALL 17006 

252 PRINT s INPUT “ HOBBY" , C" s CALL 17006 

253 PRINT s INPUT “BEST FRIEND". D$s CALL 17006 

254 PRINT s INPUT "FAYOORITE CANDY", E*: CALL 17006 

255 PRINT : INPUT "FAVORITE SINGER", F*s CALL 17006 

260 PRINT 8 PRINT "OK, “;NT*;", THANKYOUi"! GOSUB 400 

270 Z=Z+ls IF Z>20 THEN PRINT "SORRRY, "sMT*;", I CAN’T HELP YOU, i HAVE NO MDR 

RE FREE TIME"! GOSUB 400: CALL 17026 
275 N* (2-1,10! CALL 17046 

230 PRINT " WHAT CAN I DC FOR YOU, ";NT*;"?" 

300 POKE 40960.2; POKE 40961 .,0: GOSUB 400s CALL 17046 
PRINT "TYPE THE NUMBER OF ONE OF THESE": PRINT 


320 

331 


334 

336 

337 

338 

339 

340 
350 
400 
500 
1000 
1010 
2000 
2010 
3000 


PR I NT- 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


TAB 

TAB 

TAB 


(S) ; 
(5) j 
(5) ; 


TAB (5)i 
TAB (5); 
TAB (5> ; 
TAB (5) ; 


1. TYPING" 

2. GAME-PACK" 

3. MATH DRILLS" 

4. HOME FINANCE” 

5. HOME-MADE GAMES" 

6. PRACTICE PROGRAMMING" 

7. PHONEE COMMUNICATION" 

3- AUTOMATIC HOUSE CONTROL" 

9. APF Nice LIBRARY PROGRAMS" 


TAB (5),-' 

TAB 

INPUT I 

ON I GOTO 1000,2000,3000,4000,5000.6000,7000.8000,9000 
FOR W=1 TO 200:A=0:A»i: NEXT W; RETURN 

POKE 40960, X/256: POKE 40961, X- INT (X/256)*256s RETURN 
CALL 17046! GOSUB 500 

PRINT "OK, "!NT*j"f YOU NOW HAVE CONTROL, GO AHEAD,": STOP 
CALL 17046: QQ3U3 500 

PRINT "TURN OF POWER AND INSERT DESIRRED CARTRAGE": STOP 
CALL 17046: GOSUB 500 


3010 

4000 

4010 

5000 

5010 

T 

5021 

5023 

5024 

55'525 

5026 

5027 

5028 

5030 

6000 

7000 

7010 

7020 

3000 

9000 

9010 

9015 

9021 

9022 

9023 

9024 

9025 

9026 

9027 

9028 

9029 

9030 

9031 

9032 

9033 

9034 

9047 

9999 


PRINT "INSERT EDUCATION TAPE AND CLDAD AT COUNTER DOO": STOP 
CALL 17046s SOSUB 500 

PRINT "INSERT HOME FINANCE TAPE AND CLOAD AT COUNTERR 000" 8 STOP 
CALL 17046: POKE 409602s POKE 40961,0 


PRINT 

"INSERT 

HOME-GAME TAPE AND CLOAD AT COUNTERR 

PRINT 

TAB 

(5> 

1 "FIND ME”; 

5 TAB (20) S "000" 

PRINT 

TAB 

<S) 

5 "TARGET” ; 

TAB (20): "015" 

PRINT 

TAB 

(5) 

; "SCREAMER 

TAB (20); "030" 

PRINT 

TAB 

<5) 

; "LANDFALL 

TAB (20); "045" 

PRINT 

TAB 

(5) 

; "COPY CAT' 

TAB (20); "060" 

PRINT 

TAB 

<5) 

; "SKETCHER 

TAB (20); "075" 

PRINT 

TAB 

<5) 

; "liUCIAN": 

TAB (20); "090" 

PRINT 

TAB 

(5) 

; "FIREWATCH": TAB (20) | "105" 

STOP 

GOTO 

1000 




CALL , 

17046: 

GOSUB 500 



PRINT "SORRY I DO NOT HAVE RREQUIRRED EQUIPMENT YET" 
CALL 17026: CALL 17046: GOSUS 500: GOTO 8? 

GOTO 7000 


60SUB 400 


CALL 17046: POKE 40960,2: POKE 40961,0 

PRINT "ADVANCE T'^HIS TA^E AND CLOAD AT COUNTER FOR DESIRED PROGRAM: 


GOSUB 

400: 

PR I 

NT 


'^^RINT 

TAB 

(5) 

;"DICE"5 tab (25); 

“120" 

PRINT 

TAB 

(5) 

; "CRAPS"; TAB (25) 

; "030" 

PRINT 

TAB 

(5) 

; "CLOCK": TAB (25) 

. "225" 

PRINT 

TAB 

(S) 

? "SNOOPY"; "^AB <25 

) ; "045" 

PRINT 

TAB 

(5) 

; "CHECKBOOK": TAB 

(25) ; "060” 

PRINT 

TAB 

(5) 

; "AMORYIZATION”; TAB (25); "195" 

PRINT 

TAB 

(5) 

S"VAL EMULATOR"? T 

AB (25); "105" 

PRINT 

TAB 

(5) 

;"BTR$ EMULATOR"; 

TAB (25) ; "090" 

PRINT 

TAB 

(5) 

; "RAGING RROBOTS"; 

TAB (25);"16S" 

PRINT 

TAB 

(5) 

; "SPELLING TUTOR": 

TAB (25); "150" 

PRINT 

TAB 

(5) 

;"TRI6 FUNCTIONS"; 

TAB (25); ”135" 

PRINT 

TAB 

(5) 

; "NAME AND ADDRESS 

TAB (25); "075" 

PRINT 

TAB 

(5) 

; "SOMEWHERE NY LOVE"; TAB (25); "210' 

PRINT 

TAB 

(5) 

;"RUN FOR YOUR LIF 

E"; TAB (25);" 180' 


STOP 

END 



